Private Sub btn_Click()

    Dim  As Range
    Dim ׸ As Node
    
    Set  = Range("C3", Cells(Rows.Count, "C").End(xlUp))
    Set ׸ = tvw.SelectedItem

    If Not ׸.Parent Is Nothing Then

        If MsgBox("   óұ?", vbYesNo) = vbYes Then
        
            .Find(What:=׸.Text).Offset(, 3).Value = Date
            ׸.Parent.Selected = True
            txtԻ.Value = Empty
            
            tvw.Nodes.Remove ׸.Index
            
            lbl.Caption = "  : " & tvw.SelectedItem.Children
            
        End If

    End If

End Sub